home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / K-3D / k3d-0.4.2.1 / shaders / k3d_ripple.sl < prev    next >
Encoding:
Text File  |  2004-07-23  |  441 b   |  23 lines
  1. /*  ripple3.sl
  2.  *  
  3.  *  Note: I modified a given code from Renderman Interface 3.1
  4.  *   
  5.  *  This produced concave displacements on any surfaces.
  6.  *
  7.  *    by Lawrence D. Chin, cs184-bo
  8.  */
  9.  
  10.  
  11.  
  12. displacement
  13. k3d_ripple ( float amplitude = 1.0,
  14.            wavelength = 0.25,
  15.            fac = 1,
  16.            size = 5; )
  17. {
  18.   float ss, tt;
  19.   
  20.   P += 1 + N * amplitude * (2 - abs (sin(2*PI*(s/wavelength))));
  21.   N = calculatenormal(P);
  22. }
  23.